Public Class Motivos
    Dim ADMot As New ADCono.Motivos

    Public Function GenerarMotivo(ByVal ParamArray Dat() As String)
        Dim DS As DataSet
        DS = ADMot.GenerarMotivo(Dat(0), Dat(1))
        Return DS
    End Function

    Public Function ObtenerMotivo(ByVal ParamArray Dat() As String)
        Dim DS As DataSet
        DS = ADMot.ObtenerMotivo(Dat(0))
        Return DS
    End Function

    Public Function EliminarMotivo(ByVal ParamArray Dat() As String)
        Dim DS As DataSet
        DS = ADMot.EliminarMotivo(Dat(0))
        Return DS
    End Function

End Class
